Option Explicit
Sub L_Sample003()
    'ոL_Data02
    Dim mySht  As Worksheet
    Dim myConf As ControlFormat
    Set mySht = Worksheets("L_Data02")		'N
    mySht.Activate
    'wExcel
    Set myConf = mySht.Shapes("List Box 1").ControlFormat
    MsgBox myConf.Value
    Set myConf = Nothing				'
    Set mySht = Nothing
End Sub
